寫程式將資料轉換成JSON格式資訊，內文附程式碼。難在於使用保留字"，不過透過chr使用ASCII來解決問題。實際寫過對於學習JSON很有幫助，畢竟寫錯就運作不了。

【大綱】

• 時間分配
• 轉換JSON格式
  • 說明
  • 程式碼
• 檢討與修正
• 總結

【時間分配】

【轉換JSON格式】

起初規劃寫在儲存格，後來想到DEBUG.PRINT。

【說明】

參考：vba使用保留字(會連到外部網站)
VBA 用不了+=，有點可惜。
遇到保留字"，下意識想用反斜線，系統不給過。
起初以為搞錯斜線方向，後來才知道VBA不能這樣使用。
Chr(34)代替"就能使用，不過單看Chr(34)很難想到"，還是反斜線用法比較直觀。

【程式碼】

小地方需要修正

Sub all()
    '宣告
        Dim quetri As Variant
        Dim json As String
        'quetri是全部name值
        quetri = Array("name", "number", "ifsolve")
        
        'Chr(34) = ",因為"是保留字,所以要用Chr(34) 代替
        For Each ci In Range("B2", "D8")
            
            If (ci.Column() = 2) Then
                json = json + "{"
            End If
            
            json = json & Chr(34) + quetri(ci.Column() - 2) & Chr(34) & ":"
            json = json & Chr(34) & ci.Value & Chr(34)
            
            If (ci.Column() = 4) Then
                json = json + "}"
            End If
            
            json = json + ","
        Next ci
        
        '除錯用
            Debug.Print (json)
    
End Sub

【檢討與修正】

這個題庫整合專案有點慢，應該再多花一些時間。
接下來找到分心原因，試著去解決它。

【總結】

資料整理的差不多，接著嘗試用AJAX技術刷新區塊。
點擊資料後會連接到題目內容，並且解說解題思路。
錯誤地方歡迎提出，感謝撥冗閱讀。

新增

2019/06/08轉換JSON格式改良版
看到這個問答想到以前有寫過「轉換JSON格式」。
本來想複製貼上，不過回頭來看有點慘不忍睹，索性大改一番。